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APPENDIX 1 

pure function calc_crc ( 

constant polynomial : std_logic_vector ; 
— the polynomial represented as a vector 
— Eg. x~4 + x A 2 + 1x^0 => polynomial := " 10101" 

— Eg HDLC-16 CRC Poly is x A 16 + x A 12 + x A 5 + 1 => "10001000000100001"; 
— Eg HDLC-32 CRC Poly is 

— x /N 32+x A 2 6+x^23+x A 22+x^l6+x^l2+x^ll-fx A 10+x /N 8+x A 7+x' N 5+x /s 4+x /v 2+x A l+x^0 
-- => "100000100110000010001110110110111"; 

constant augmented_m.es sage : boolean; 

— when true, the message must be augmented 

(followed by ' n' bits where 'n' = bits in ore) 

— when false, the message does not have to be augmented. 
crc_in : std_logic_vector; 

— current value of the crc MUST have MSB in the LEFTMOST bit . 
data_in : std_logic_vector 

— The new data word. This is always processed LEFT to RIGHT 
) return std_logic_vector is 

— returned CRC value will always have MSB in the LEFTMOST bit. 

constant data_bits : integer := data_in ' length; 
constant crc_bits : integer := crc_in ' length; 
variable data : std_logic_vector (data_bits-l downto 0) ; 
variable crc_new : std_logic_vector (crc_bits-l downto 0); 
variable crc : std_logic__vector {crc_bits-l downto 0) ; 
variable crc_out : std_logic_vector (crc_in ' range) ; 

variable c_polynomial : std_logic_vector (crc_bits downto 0) := polynomial; 
— avoids problems with range direction 

begin 

data := data_in; — avoids problems with range direction 
crc := crc_in; 

for word_bit_num in data_bits-l downto 0 loop 
if augmented_message then 

— this algorithm requires augmented message 

— (ie message appended with 'n' zero's where ' n* is num of bits in CRC) 
for crc_bit_num in crc_bits-l downto 1 loop 

if c_polynomial (crc_bit_num) = '1' then 

crc_new (crc_bit_num) := crc (crc_bit_num-l ) xor crc (crc_bits-l ) ; 

else 

crc_new(crc_bit_num) := crc <crc_bit_num-l ) ; 
end if; 
end loop; 

crc_new(0) := data (word_bit_num) xor crc (crc_bits-l) ; 
crc := crc_new; 
else 

— this algorithm does not require an augmented message 
for crc_bit_num in crc__bits-l downto 1 loop 
if c_polynomial (crc_bit_num) = then 

cr c_ne w (crc_bit_num) := crc (crc_bit_num-l ) xor (crc (crc_bits-l ) xor 
data (word__bit_num) ) ; 
else 

crc_new (crc_bit_num) : = crc (crc_bit_num-l ) ; 
end if; 
end loop; 

crc_new(0) := data (word_bit_num) xor crc (crc_bits-l) ; 
crc := crc_new; 
end if; — augmented message 
end loop; 

crc_out := crc_new; --match output to port range 
return crc_out ; 

end function calc_crc; 
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APPENDIX 2 



pure function i dent if y_data_terms ( 

augmented_message : boolean; 
crc_bits : integers- 
polynomial : std_logic__vector; 
data_bits : integer 
) return data__xor_ena_vec_array__type is 

variable 
variable 
variable 
constant 



begin 

data_xor_ena_vec := (others => (others => '0')); 
for word_bit_num in data_bits-l downto 0 loop 

--create a mask to represent the current word_bit_num 

— eg 100000000 or 01000000 etc 

data_bit_enable := (others => '0'); 

data_bit__enable (word_bit_num) : = ' 1 * ; 

— find out if this data bit is a term 

— in each crc bit's xor function 

data_bit_xor_ena : = calc_crc ( 

polynomial => polynomial, 

augment ed_mes sage => augment ed_mes sage, 

crc_in => zero_crc, 

data_in -> data_bit_enable 

) ; 

— assign the result to the appropriate entry in the 
data_xor_ena_vec 

for crc_bit in crc_bits-l downto 0 loop 

data_xor_ena_vec (crc_bit ) (word_bit_num) := 
data_bit__xor_ena (crc_bit) ; 

end loop; 

end loop; 

return data_xor_ena_vec; 
end function i dent if y_data_terms ; 



data_xor_ena_vec : data_xor_ena_vec_array_type; 
data_bit_enable : std_logic_vector <data_bits-l downto 0) ; 
data_bit_xor_ena : std_logic_vector {crc_bits-l downto 0); 
zero_crc : std_logic_vector (crc_bits-l downto 0) := {others 
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APPENDIX 3 



pure function identif y_crc_terms ( 

augment ed_mes sage : boolean; 
crc_bits : integer; 
polynomial : std_logic_vector; 
data_bits : integer 
) return crc_xor_ena_vec_array_type is 

variable crc_xor_ena__vec : crc_xor_ena_vec_array_type; 
variable crc_bit_enable : std_logic_vector (crc_bits-l downto 0) ; 
variable crc_bit_xor_ena : std_logic_vector (crc_bits-l downto 0); 
constant zero_data : std_logic_vector {data_bits-l downto 0) := (others 

=> '0* in- 
variable c_polynomial : std_logic_vector (crc_bits downto 0) := 
polynomial; 

--avoids direction ambiguity 



begin 

crc_xor__ena_vec := (others => (others => '0')); 
for word_bit_num in crc_bits-l downto 0 loop 

— create a mask to represent the current word_bit_num 

— eg 100000000 or 01000000 etc 

crc_bit_enable := (others => ' 0 ' ) ; 

crc_bit_enable (word_bit_num) : = ' 1 ' ; 

— find out if this crc bit is a term 

— in each crc bit's xor function 

crc_bit_xor_ena := calc_crc( 

polynomial => c_polynomial, 

augment ed_mes sage => augment ed_mes sage, 

crc_in => crc_bit_enable, 

data_in => zero_data 

) ; 

— assign the result to the appropriate entry in the 
c r c_x o r _ e n a__ v e c 

for crc_bit in crc_bits-l downto 0 loop 

crc_xor_ena_vec (crc_bit) (word_bit_num) := 
crc_bit_xor_ena ( crc_bit ) ; 

end loop; 

end loop; 



return crc_xor_ena_vec; 
end function identif y_crc_terms; 
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